home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 138
/
Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
553b
|
16 lines
10 poke53280,.:poke53281,.:printchr$(147):s=54272:pokes+4,17:pokes+24,15
11 pokes+5,16:pokes+6,255:goto45
12 fora=1944to1983 step2:pokea,81:pokea,42
20 fori=0to5:rem" "
25 print"[223][210][210][210][210][157][159][146][223]";
30 poke646,i*14:pokes+1,rnd(z)*2+(3*i)
35 pokes+4,16: :poke53270,22:poke56325,55:next:next
40 poke646,2:foro=1to5:forp=10to14:forq=0to4:
41 poke1054,o:poke1056,p:poke1058,q:poke1060,o:next:next:next:poke53270,11
42 fort=1to1000:next:print"";:fort=1to750:next:end
45 print" [206][206][206][206][206] [206] [206] [206][206][206][206] [206][206][206][206][206]"
46 print" [206] [206][206] [206] [206] [206] [206]"
47 print" [206][206][206] [206] [206] [206] [206] [206] [206][206][206]"
48 print" [206] [206] [206][206] [206] [206] [206]"
49 print" [206][206][206][206][206] [206] [206] [206][206][206][206] [206][206][206][206][206]":goto12